unit SocketSetFrm;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms;

type
  TSocketSetForm = class(TForm)
    ChkUsedSocks: TCheckBox;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    SocksServerEdit: TEdit;
    SocksPortEdit: TEdit;
    SocksUsercodeEdit: TEdit;
    SocksPasswordEdit: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure ChkUsedSocksClick(Sender: TObject);
  end;

var
  SocketSetForm: TSocketSetForm;

implementation

{$R *.DFM}

procedure TSocketSetForm.ChkUsedSocksClick(Sender: TObject);
var
  iLoop:Integer;
begin
  if ChkUsedSocks.Checked then
    for iLoop:=0 to GroupBox1.ControlCount-1 do GroupBox1.Controls[iLoop].Enabled:=True
  else
    for iLoop:=0 to GroupBox1.ControlCount-1 do GroupBox1.Controls[iLoop].Enabled:=False;

end;

end.
